home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DDJMAG / DDJ9203.ZIP / OOPASM.ZIP / STRINGS.ASM < prev    next >
Assembly Source File  |  1990-07-16  |  2KB  |  92 lines
  1.     .MODEL    SMALL
  2.  
  3.     INCLUDE    equates.inc
  4.     INCLUDE    instance.inc
  5.     INCLUDE    objects.inc
  6.  
  7. IF1
  8.     INCLUDE    macros.mac
  9.     INCLUDE    cursor.mac
  10.     INCLUDE    strings.mac
  11.     INCLUDE    objects.mac
  12. ENDIF
  13.  
  14.     EXTRN    Self:WORD
  15.  
  16.     .CODE
  17.  
  18.     PUBLIC    prtString
  19. COMMENT    %
  20. ==============================================================================
  21. Displays an ASCIIZ string at the current cursor position.
  22.  
  23. Passed:    bl - Color
  24.     dx - Row/Column
  25.     si - Pointer to string
  26.  
  27. =============================================================================%
  28. prtString    PROC    NEAR
  29.     pushData    <cx,dx,si>
  30.     setCur        dh,dl            ;Position cursor
  31.     call        prtString_        ;Display the string
  32.     popData        <si,dx,cx>
  33.     ret
  34. prtString    ENDP
  35.  
  36.  
  37.  
  38.     PUBLIC    prtString_
  39. COMMENT    %
  40. ==============================================================================
  41. Displays an ASCIIZ string at the current cursor position.
  42.  
  43. Passed:    bl - Color
  44.     si - Pointer to string
  45.  
  46. =============================================================================%
  47. prtString_    PROC    NEAR
  48.     prtStrg        si,bl            ;Display the string
  49.     ret
  50. prtString_    ENDP
  51.  
  52.  
  53.  
  54.     PUBLIC    disString
  55. COMMENT    %
  56. ==============================================================================
  57. Displays the ASCIIZ string in the text buffer at the location, and with the 
  58. attributes currently at that locatioin.
  59.  
  60. =============================================================================%
  61. disString    PROC    NEAR
  62.     getInst        al,Row1,Self        ;Get ptr to text row
  63.     getInst        bl,Color        ;Get text attribute
  64.     getInst        bh,Col1            ;Get ptr to text column
  65.     getInst        si,TxtPtr        ;Get text pointer
  66.     disStrg        al,bh,bl,si
  67.     ret
  68. disString    ENDP
  69.  
  70.  
  71.  
  72.     PUBLIC    disCharacter
  73. COMMENT    %
  74. ==============================================================================
  75. Displays an ASCII character by writing to video memory.
  76.  
  77. Passed:    bh - Character code
  78.     bl - Color
  79.     dx - Upper/Left row/column
  80.  
  81. =============================================================================%
  82. disCharacter    PROC    NEAR
  83.     pushData    <cx,di,dx>
  84.     disChar        dh,dl,bl,bh        ;Display character
  85.     popData        <dx,di,cx>
  86.     ret
  87. disCharacter    ENDP
  88.  
  89.  
  90.  
  91.     END
  92.